Apple Reference & Present…ry 5: (Reseller Edition)/Apple Reference & Presentations Library 5.0 (Reseller Edition).iso/6-Developer Demos/Developer Demos-Gen./Mac Yellow Pages 1.0/card_29961.txt

Text File | 1990-08-17 | 13KB | 614 lines

-- card: 29961 from stack: in.0
-- bmap block id: 30228
-- flags: 4000
-- background id: 29303
-- name: Registration Help
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp

function blip text
lock Screen
put empty into card field "blip Field"
unlock Screen with dissolve
repeat with x = 1 to number of words of text
  play stop
  play boing a6t
  put word x of text & space after card field "blip Field"
  --type char x of text
  --put char x of text after card field "blip Field"
end repeat
end blip


on openCard
  global progPointer
  put 0 into progPointer
  put empty into card field "Address"
end openCard

on closeCard
  set the lockScreen to true
  put empty into card field "Address"
  put empty into card field "Blip Field"
  repeat with n = 1 to 14
    set the hilite of card button n to false
  end repeat
  set the lockScreen to false
end closeCard

on idle
  global progPointer
  add 1 to progPointer
  if progPointer > 12 then
    put 12 into progPointer
  end if

  if progPointer = 1 then
    put blip ("You are looking at the registration form...") into it
    wait for 50 ticks
  else if progPointer = 2 then
    put blip ("...for the Macintosh Yellow Pages.") into it
    wait for 1 second
  else if progPointer = 3 then
    put blip ("Anyone can register; the registration is FREE.") into it
    wait for 2 second
  else if progPointer = 4 then
    put blip ("FIRST") into it
    wait for 1 seconds
  else if progPointer = 5 then
    put blip ("Fill in your name and address.") into it
    wait for 90 ticks
  else if progPointer = 6 then
    click at 237,185
    type "John Johnson"&return&"Digital Media, Inc."&return& "12345 Main St"&return&"Boston, MA 02139"
  else if progPointer = 7 then
    put blip ("NEXT") into it
    wait for 90 ticks
  else if progPointer = 8 then
    put blip ("Check the product categories that interest you.") into it
    repeat with n = 1 to 13
      wait for 10 ticks
      play harpsichord at6
      set the hilite of card button n to true
    end repeat
    wait for 1 second
  else if progPointer = 9 then
    put blip ("THEN") into it
    wait for 90 ticks
  else if progPointer = 10 then
    put blip ("Print this page and mail it.") into it
    repeat for 10 times
      set the hilite of card button "Print" to true
      wait for 5 ticks
      set the hilite of card button "Print" to false
      wait for 10 ticks
    end repeat
    wait for 2 seconds
  else if progPointer = 11 then
    put blip ("It's that simple!") into it
    wait for 1 seconds
  else
    send mouseUp to bkgnd button "Cancel"
  end if
end idle

on greeting
  --put empty into card field "Choice"
  put blip ("Hi, I am your Search Assistant.") into it
  wait for 1 seconds
  put blip ("Please type in a product category.") into it
  wait for 1 seconds
  put blip ("Be as vaque as you want.") into it
end greeting

on query
  ask "Please type in a product category."
  put blip ("Thank you!") into it
end query


-- part 46 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=90 right=108 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Word Processing
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 48 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=247 top=45 right=87 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 66 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=108 right=126 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Spreadsheet
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=126 right=144 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Database
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 68 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=144 right=162 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Graphics
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=162 right=180 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Communication
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 70 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=180 right=198 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Network Products
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=248 top=198 right=216 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Programming
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=90 right=108 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Storage Devices
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=108 right=126 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Printers
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=126 right=144 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Video/Monitors
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 77 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=144 right=162 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Business
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=162 right=180 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Personal/Home
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 79 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=180 right=198 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: Games
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 80 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=373 top=198 right=216 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    play harpsichord at6
  else
    play harpsichord at5
  end if
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=305 right=337 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Contents
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  put true into allClear
  repeat with n = 1 to 14
    if the hilite of card button n is true then
      put false into allClear
      exit repeat
    end if
  end repeat

  if card field "Address" is not empty then
    put false into allClear
  end if

  if allClear then
    visual effect iris close to black
    visual effect iris open
    go to card "Main Menu"
  else
    answer "Clear page before returning to Main Menu?" with "Cancel" or "No" or "OK"
    if it is not "Cancel" then
      if it is "OK" then
        put empty into card field "Address"
        repeat with n = 1 to 14
          set the hilite of card button n to false
        end repeat
      end if
      visual effect iris close to black
      visual effect iris open
      go to card "Main Menu"
    end if
  end if
end mouseUp


-- part 87 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=253 top=225 right=275 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 89 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=20 top=43 right=97 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blip field


-- part 90 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=165 right=276 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 22
-- part name: Address


-- part 93 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=53 top=305 right=336 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mask


-- part 94 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=53 top=304 right=336 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print


-- part 95 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=463 top=305 right=336 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mask


-- part 97 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=388 top=200 right=218 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:


-- part contents for background part 13
----- text -----
REGISTRATION

-- part contents for card part 48
----- text -----
What kind of product information would you like to  see  in  the  future  updates  of  the Macintosh Yellow Pages?

-- part contents for card part 87
----- text -----
PRINT THIS PAGE AND MAIL TO:
Macintosh Yellow Pages, Kendall Square
P.O. Box 23, Cambridge, MA 02142.

-- part contents for background part 22
----- text -----
8/4/90